home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2004 #11
/
Amiga Plus CD - 2004 - No. 11.iso
/
AmiSoft
/
Comm
/
yam
/
YAMGenesis.lha
/
YAMGenesis
/
GenesisQuit.yam
< prev
next >
Wrap
Text File
|
2004-06-09
|
1KB
|
46 lines
/* GenesisQuit.yam - Quit Genesis if started from YAM.
*
* $VER: GenesisQuit.yam 1.03 (9.6.04) © H. van der Ree <hivdree@uwnet.nl>
* 1.01 - 01.05.01 Working version from Aminet.
* 1.02 - 19.05.03 Added quiting of iSpell.
* 1.03 - 09.06.04 Added delete of YAMDONOTASKAGAIN variable.
*/
OPTIONS RESULTS
/* Don't quit if one of these applications is running */
ports = "IBROWSE VOYAGER AMFTP.1 AWebControlPort ATC_MAIN ATC_TRADER.1"
interface = GETVAR(GENESISINTERFACE, "GLOBAL")
genesisport = "GENESIS"
action = GETVAR(STARTEDBYYAM, "GLOBAL")
IF action = "YES" THEN
DO
DO i = 1 TO WORDS(ports)
IF SHOW('P', WORD(ports,i)) THEN CALL LastBits
END
IF SHOW('P', genesisport) THEN
DO
ADDRESS VALUE genesisport
ISONLINE interface
IF RC = 0 THEN
DO
QUIT
END
END
END
LastBits:
CALL DELETEVAR(STARTEDBYYAM, "GLOBAL")
CALL DELETEVAR(GENESISINTERFACE, "GLOBAL")
CALL DELETEVAR(YAMDONOTASKAGAIN, "GLOBAL")
ADDRESS COMMAND 'delete >NIL: T:#?.unp T:#?.tmp T:msg.db T:qfu.rexx'
IF SHOW('P', 'IRexxSpell') THEN ADDRESS 'IRexxSpell' 'EXIT'
EXIT 0